home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / 3d_menu / 3d1.frm < prev    next >
Text File  |  1995-05-07  |  3KB  |  123 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Demo"
  5.    ClientHeight    =   2655
  6.    ClientLeft      =   1050
  7.    ClientTop       =   2070
  8.    ClientWidth     =   7455
  9.    Height          =   3060
  10.    Left            =   990
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2655
  13.    ScaleWidth      =   7455
  14.    Top             =   1725
  15.    Width           =   7575
  16.    Begin PictureBox About 
  17.       ForeColor       =   &H00000000&
  18.       Height          =   495
  19.       Left            =   960
  20.       ScaleHeight     =   465
  21.       ScaleWidth      =   1065
  22.       TabIndex        =   4
  23.       Top             =   480
  24.       Width           =   1095
  25.       Begin Label Label3 
  26.          BackStyle       =   0  'Transparent
  27.          Caption         =   "A&bout"
  28.          Height          =   375
  29.          Left            =   120
  30.          TabIndex        =   5
  31.          Top             =   120
  32.          Width           =   855
  33.       End
  34.    End
  35.    Begin PictureBox File 
  36.       Height          =   735
  37.       Left            =   0
  38.       ScaleHeight     =   705
  39.       ScaleWidth      =   1185
  40.       TabIndex        =   2
  41.       Top             =   480
  42.       Width           =   1215
  43.       Begin Label Label4 
  44.          BackStyle       =   0  'Transparent
  45.          Caption         =   "E&xit"
  46.          Height          =   375
  47.          Left            =   120
  48.          TabIndex        =   6
  49.          Top             =   360
  50.          Width           =   735
  51.       End
  52.    End
  53.    Begin PictureBox Panel3D1 
  54.       ForeColor       =   &H00000000&
  55.       Height          =   495
  56.       Left            =   0
  57.       ScaleHeight     =   465
  58.       ScaleWidth      =   7425
  59.       TabIndex        =   0
  60.       Top             =   0
  61.       Width           =   7455
  62.       Begin Label Label2 
  63.          BackStyle       =   0  'Transparent
  64.          Caption         =   "&About"
  65.          Height          =   255
  66.          Left            =   960
  67.          TabIndex        =   3
  68.          Top             =   120
  69.          Width           =   1455
  70.       End
  71.       Begin Label Label1 
  72.          BackStyle       =   0  'Transparent
  73.          Caption         =   "&File"
  74.          ForeColor       =   &H00000000&
  75.          Height          =   255
  76.          Left            =   120
  77.          TabIndex        =   1
  78.          Top             =   120
  79.          Width           =   1095
  80.       End
  81.    End
  82.    Begin Label Label5 
  83.       BackStyle       =   0  'Transparent
  84.       Caption         =   "JWPC '95"
  85.       FontBold        =   -1  'True
  86.       FontItalic      =   0   'False
  87.       FontName        =   "MS Sans Serif"
  88.       FontSize        =   86.25
  89.       FontStrikethru  =   0   'False
  90.       FontUnderline   =   0   'False
  91.       ForeColor       =   &H00FF0000&
  92.       Height          =   1695
  93.       Left            =   0
  94.       TabIndex        =   7
  95.       Top             =   840
  96.       Width           =   7575
  97.    End
  98. End
  99.  
  100. Sub Form_Load ()
  101. about.Visible = False
  102. file.Visible = False
  103.  
  104. End Sub
  105.  
  106. Sub Label1_Click ()
  107. file.Visible = True
  108. about.Visible = False
  109.  
  110. End Sub
  111.  
  112. Sub Label2_Click ()
  113. about.Visible = True
  114. file.Visible = False
  115.  
  116. End Sub
  117.  
  118. Sub Label3_Click ()
  119. MsgBox "Copyright (C) 1994 Jeff Wilcox, President of JWPC 1995, inc.", 48, "About 3d Menus"
  120.  
  121. End Sub
  122.  
  123.